home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / CID_SWV1.ZIP / LOGON.WCX (.txt) < prev    next >
Encoding:
Wildcat! WCX  |  1995-12-25  |  1.2 KB  |  104 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1270 bytes  03/05/125  02:33:08pm
  3. '! Code Segment Size  :1004 bytes
  4. '! Data Segment Size  :4493 bytes
  5. '! String Segment Size:266 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Declare Function Func904(s65534 As String) As Integer
  9.  
  10.       Dim s4463 As String
  11.       Dim s4467 As String
  12.       Dim t4471 As Time
  13.       Dim s4475 As String
  14.       Dim s4479 As String
  15.       Dim s4483 As String
  16.       Dim s4487 As String
  17.       Dim i4491 As Integer
  18.  
  19.       Dim s65532_ As String
  20.  
  21.       s4463 = ProgPath + "LOGON.CID"
  22.       If Func904(s4463) Then
  23.         Input #1, s4467
  24.         Close 1
  25.       Else
  26.    87   If Not Func904(s4463) Then
  27.           If User.SecLevel <> "SYSOP" Then
  28.             GoTo 191
  29.           Else
  30.   139       Cls 
  31.             Locate 10, 20
  32.             Print "@0F@Path to CID_SW NOT found!"
  33.             Delay 5
  34.             GoTo 191
  35.           End If
  36.         End If
  37.       End If
  38.   172 Run s4467 + "CID_SW", ""
  39.   191 Print DefColor
  40.       Cls 
  41.       CurrentTime t4471
  42.       s4479 = FormatTime(t4471, "hH.MM")
  43.       s4483 = Left(s4479, 2)
  44.       s65532_ = s4483
  45.       If s65532_ = "00" Then GoTo 447
  46.       If s65532_ = "01" Then GoTo 447
  47.       If s65532_ = "02" Then GoTo 447
  48.       If s65532_ = "03" Then GoTo 447
  49.       If s65532_ = "04" Then GoTo 447
  50.       If s65532_ = "05" Then GoTo 447
  51.       If s65532_ = "06" Then GoTo 447
  52.       If s65532_ = "07" Then GoTo 447
  53.       If s65532_ = "08" Then GoTo 447
  54.       If s65532_ = "09" Then GoTo 447
  55.       If s65532_ = "10" Then GoTo 447
  56.       If s65532_ = "11" Then
  57.   447   s4475 = "morning"
  58.       Else
  59.   462   If s65532_ = "12" Then GoTo 581
  60.         If s65532_ = "13" Then GoTo 581
  61.         If s65532_ = "14" Then GoTo 581
  62.         If s65532_ = "15" Then GoTo 581
  63.         If s65532_ = "16" Then GoTo 581
  64.         If s65532_ = "17" Then GoTo 581
  65.         If s65532_ = "18" Then
  66.   581     s4475 = "afternoon"
  67.         Else
  68.   596     If s65532_ = "19" Then GoTo 681
  69.           If s65532_ = "20" Then GoTo 681
  70.           If s65532_ = "21" Then GoTo 681
  71.           If s65532_ = "22" Then GoTo 681
  72.           If s65532_ = "23" Then
  73.   681       s4475 = "evening"
  74.           Else
  75.   696       s4475 = "day"
  76.           End If
  77.         End If
  78.       End If
  79.   705 i4491 = InStr(1, User.Name, " ")
  80.       s4487 = UCase(Left(User.Name, 1)) + LCase(Mid(User.Name, 2, i4491 - 1))
  81.       Print "Good " + s4475 + ",@0F@ " + RTrim(s4487) + "@0E@, you are caller number @0F@" + LTrim(FormatNumber(MasterInfo.TotalCalls, "#,###,###")) + "@0E@."
  82.       Delay 3
  83.       HelloFiles 
  84.       QuoteOfTheDay 
  85.       CheckNewsletter 
  86.       CheckBulletins 
  87.       CheckMailAtLogon 
  88.       End 
  89.  
  90. '! Called 2 times
  91.       Function Func904(s65534 As String) As Integer
  92.         Func904 = -1
  93.         If Exists(s65534) Then
  94.           Open s65534 For Input As 1
  95.         Else
  96.   963     Func904 = 0
  97.         End If
  98.   969
  99.         Catch 10
  100.           Func904 = 0
  101.         GoTo 996
  102.   996
  103.       End Function
  104.